home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Resources / General Utilities / ReNamer 5.40 / ReNamer.exe / {app} / Scripts / Initialize renaming code.pas < prev    next >
Pascal/Delphi Source File  |  2007-02-13  |  346b  |  16 lines
  1. // Boolean variables are set to False when
  2. // they are compiled, so we can think of that
  3. // fact as of the code not been Initialized.
  4. var
  5.   Initialized: Boolean;
  6.  
  7. procedure Initialize;
  8. begin
  9.   Initialized := True;
  10.   // Initialization code here
  11. end;
  12.  
  13. begin
  14.   if not Initialized then Initialize;
  15.   // The main renaming code here
  16. end.